| UpdateTestTreeState method |
Applies to
TGUITestRunner
Declaration
Procedure UpdateTestTreeState;Implementation
procedure TGUITestRunner.UpdateTestTreeState;
var
node :TTreeNode;
begin
if TestTree.Items.Count > 0 then
begin
TestTree.Items.BeginUpdate;
try
node := TestTree.Items.GetFirstNode;
while node <> nil do
begin
UpdateNodeState(node);
node := node.getNextSibling;
end
finally
TestTree.Items.EndUpdate;
end;
end;
End; |
|
|